home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
printer
/
jcosub26.zip
/
PLAYSETU.JSR
< prev
next >
Wrap
Text File
|
1994-01-10
|
517b
|
22 lines
/* JACOsub PLAYSETUP command demonstration.
PLAYSETUP causes JACOsub to initialize itself for playing a script.
The command PLAYSETUP *must* be given prior to issuing a PLAYSCRIPT
command.
PLAYSETUP returns RESULT=0 if successful, or RESULT=1 if a problem
occurred.
*/
parse arg playmode
if ~arg() then playmode='INTERNAL'
options results
address 'JACOsub'
'PLAYSETUP' playmode
if result then
say 'script play initialization failed.'
else
say 'script play initialization successful.'
exit result